home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / Config / MAILER.config < prev    next >
Text File  |  1993-12-27  |  7KB  |  255 lines
  1. /*
  2.  *  $VER: MAILER.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
  3.  *
  4.  *  Zum Schreiben von EMails
  5.  *  Wenig Menüs, WordWrap...
  6.  *
  7.  */
  8.  
  9. IF Compare 3371 _Version;
  10.    NOP;
  11.    Ask "WRITE und MAILER.cfg haben eine unterschiedliche\n"+
  12.        "Versionsnummer\n"+
  13.        "Weiterparsen könnte gefährlich sein !"
  14.        "Stop & _Ende ^|_Weiter parsen *"
  15.    Break EQUAL _RN 0;
  16.  
  17.  
  18. /* Setzen der internen Variablen */
  19. /* ----------------------------- */
  20.  
  21. /* Lokal */
  22.  
  23. /* Standardeinstellungen */
  24.  
  25. SETVAR "_WordDef"              2   /* Wie wird ein Word definiert ??? */
  26.  
  27.  
  28. SETVAR "_AutoIndent"           5
  29. SETVAR "_ReadTabs"          TRUE   /* Konvertieren ja/nein ?          */
  30. SETVAR "_WriteTabs"        FALSE   /*       "       "  "              */
  31. SETVAR "_CaseSense"         TRUE
  32. SETVAR "_Optimize"          TRUE
  33. SETVAR "_ShowSpace"        FALSE
  34. SETVAR "_ShowEOL"          FALSE
  35. SETVAR "_FRPattern" "~(#?(.info|.bak))"
  36. SETVAR "_OverwriteIcon"    FALSE
  37. SETVAR "_WriteIcon"        FALSE
  38. SETVAR "_WordWrap"             2
  39.  
  40. /* Setzen der User-Funktionen */
  41. /* -------------------------- */
  42.  
  43. /*
  44.  * Die Diese Routine wird bei App-Aktionen
  45.  * mit dem Filenamen in _RS aufgerufen
  46.  */
  47.  
  48. SETUSERFKT 0 SETVAR "_Path" _RS
  49.              NewEd ""
  50.              Window 0 0 0 0
  51.              Open _Path;
  52.  
  53. /*
  54.  * Diese Routine wird aufgerufen,
  55.  * wenn das Closing-Gadgetgedrückt wird
  56.  */
  57.  
  58. SETUSERFKT 1 IF Compare FALSE _changed;
  59.                NOP;
  60.                Ask ("$_FileName$"\nist verändert worden !\n)+
  61.                     "Text geht verloren !"
  62.                     "_Ab_brechen ! ^|Ab_speichern & Ende *|_Ende"
  63.               Break EQUAL _RN 0;
  64.               IF Compare _RN 1;
  65.                 Save _FileName;
  66.                 NOP;
  67.               QuitEd;
  68.  
  69. /* Die Tastaturbelegung */
  70. /* -------------------- */
  71.  
  72. CLEARKEYS
  73.  
  74. KEY "help"
  75.     MessageOK "Cursorkeys         : Bewegung im Text\n"+
  76.               "Shift hoch/runter  : Seite hoch/runter\n"+
  77.               "Shift links/rechts : Erster/letzter Buchstabe in d. Zeile\n"+
  78.               "alt   hoch/runter  : Erste/letzte Zeile\n"+
  79.               "alt   links/rechts : letztes/nächstes Wort\n"+
  80.               "<-                 : Backspace\n"+
  81.               "Del                : Delete"
  82.     MessageOK "Shift Del : Lösche bis EOL\n"+
  83.               "Ctrl  y   : Lösche Zeile\n"+
  84.               "F1-F5     : Setze Textmarke\n"+
  85.               "f1-f5     : Springe zu Textmarke\n"+
  86.               "Escape    : Iconify";
  87.  
  88. KEY "shift help"
  89.     Help;       /* Help-Menu */
  90.  
  91. /* classic keys */
  92.  
  93. KEY "tab"       Tab 0;
  94. KEY "shift tab" BackTab;
  95.  
  96. KEY "escape" Iconify;
  97.  
  98. KEY "return"       Return;
  99.  
  100. KEY "delete"       Delete;
  101. KEY "shift delete" DeleteToEOL;
  102. KEY "control y"    DeleteLine;
  103.  
  104. KEY "backspace"    BackSpace 0;
  105.  
  106. KEY "right" CursorRight 0;
  107. KEY "left"  CursorLeft 0;
  108. KEY "up"    CursorUp 0;
  109. KEY "down"  CursorDown 0;
  110.  
  111. KEY "shift up"    PageUp   90;
  112. KEY "shift down"  PageDown 90;
  113. KEY "shift right" Goto @EOL @EOL;
  114. KEY "shift left"  Goto @SOL @SOL;
  115.  
  116. KEY "alt up"  Goto _xPos 1;        /*  zur 1. Zeile oder         */
  117. KEY "alt down" Goto _xPos _Length;  /* zur letzten Zeile springen */
  118.  
  119. KEY "alt left"  LastWord;
  120. KEY "alt right" NextWord;
  121.  
  122. /* Die Menüs */
  123. /* --------- */
  124.  
  125. CLEARMENU
  126.  
  127. MENU   "PROJEKT"
  128.   ITEM "Neu" ""
  129.        IF Compare FALSE _changed;
  130.          NOP;
  131.          Ask ("$_FileName$"\nist verändert worden !\n)+
  132.               "Text geht verloren !"
  133.               "Ab_brechen ! ^|_Speichern & löschen *|_Löschen"
  134.          Break EQUAL _RN 0;
  135.          IF Compare _RN 1;
  136.            Save _FileName;
  137.            NOP;
  138.        New
  139.        SetTitle "Text gelöscht." FALSE;
  140.   ITEMBAR
  141.   ITEM "Iconify" "I"
  142.        Iconify;
  143.   ITEM "Über WRITE" "!"
  144.        About;
  145.   ITEMBAR
  146.   ITEM "Speichern & Verlassen" "E"
  147.        IF Compare FALSE _changed;
  148.          NOP;
  149.          Save _FileName;
  150.        QuitEd;
  151.   ITEM "Ende" "Q"
  152.        IF Compare FALSE _changed;
  153.          NOP;
  154.          Ask ("$_FileName$"\nist verändert worden !\n)+
  155.               "Text geht verloren !"
  156.               "Ab_brechen ! ^|_Speichern & Ende *|_Ende"
  157.          Break EQUAL _RN 0;
  158.          IF Compare _RN 1;
  159.            Save _FileName;
  160.            NOP;
  161.        QuitEd;
  162.  
  163. MENU   "EDIT"
  164.   ITEM "Setze Marke" "M"
  165.        SetTitle "Marke gesetzt." FALSE
  166.        SetMark;
  167.   ITEM "Lösche Marke" "U"
  168.        Unmark;
  169.   ITEMBAR
  170.   ITEM "Ausschneiden" "X"
  171.        CopyBlock 0
  172.        DeleteBlock;
  173.   ITEM "Kopieren" "C"
  174.        CopyBlock 0
  175.        SetTitle "Block kopiert." FALSE;
  176.   ITEM "Einfügen" "V"
  177.        InsertBlock 0;
  178.   ITEM "Löschen" ""
  179.        DeleteBlock;
  180.   ITEMBAR
  181.   ITEM "Clipboard »" ""
  182.        NOP;
  183.     SUB "Ausschneiden nach Clip" ""
  184.         CopyBlock 0
  185.         BufferToClip 0   0
  186.         DeleteBlock;
  187.     SUB "Nach Clip kopieren" ""
  188.         CopyBlock 0
  189.         BufferToClip 0   0
  190.         SetTitle "Block kopiert." FALSE;
  191.     SUB "Einfügen aus Clip" ""
  192.         ClipToBuffer 0   0
  193.         InsertBlock 0;
  194.     SUB "Buffer nach Clip" ""
  195.         BufferToClip 0   0;
  196.     SUB "Clip nachBuffer" ""
  197.         ClipToBuffer 0   0;
  198.  
  199. MENU "UTLITIES"
  200.   ITEM "Schreibe Zeichen..." ""
  201.        GetNumber "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
  202.        WriteChar _RN;
  203.   ITEM "Zeige Zeit & Datum" "T"
  204.        MessageOK "Aktuelle Zeit ist :\n$_Time$";
  205.   ITEMBAR
  206.   ITEM "UPPER word" "^"
  207.        UpperBlock @SOW @EOW;
  208.   ITEM "lower word" "#"
  209.        LowerBlock @SOW @EOW;
  210.   ITEMBAR
  211.   ITEM "Match Bracket" "("
  212.        MatchBracket;
  213.  
  214. MENU   "SEARCH"
  215.   ITEM "Finde..." "F"
  216.        GetFindReplace _FindString ""
  217.        Find @CURSOR @CURSOR @EOT @EOT;
  218.   ITEM "Finde noch einmal" "N"
  219.        Find @CURSOR @CURSOR @EOT @EOT;
  220.   ITEMBAR
  221.   ITEM "Ersetze..." "Y"
  222.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  223.        Replace @CURSOR @CURSOR @EOT @EOT;
  224.   ITEM "Ersetze noch einmal" "Z"
  225.        Replace @CURSOR @CURSOR @EOT @EOT;
  226.   ITEM "Ersetze alle..." ""
  227.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  228.        Replace @CURSOR @CURSOR @EOT @EOT {@ALL}
  229.        Flash;
  230.   ITEM "Ersetze alle schnell..." ""
  231.        GetFindReplace _FindString _ReplaceString {@REPLACE}
  232.        Silent
  233.        Replace @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ}
  234.        Window 0 0 0 0;
  235.   ITEMBAR
  236.   ITEM "Springe zu Zeile..." "G"
  237.        GetNumber "Springe zu Zeile :" _yPos
  238.        Goto _xPos _RN;
  239.   ITEMBAR
  240.   ITEM "Zeige Index..." "J"
  241.        GetString "Bitte geben sie das Suchmuster\n"+
  242.                  "für den Index an :" "#?#?"
  243.        ShowIndex _RS {@CASE};
  244.  
  245. MENU   "HELP"
  246.   ITEM "Zeige Variablen" ""
  247.        ShowVars;
  248.   ITEM "Zeige Funktionen" ""
  249.        ShowFunctions;
  250.   ITEM "Zeige ASCII-Codes" ""
  251.        ShowASCII;
  252.   ITEM "Hilfe zu Stichwort..." "?"
  253.        GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
  254.        GuideHelp _RS;
  255.